﻿Public Class MainForm
    Private ucBienvenida As New Bienvenida
    Private ucUsuarios As New Usuarios
    Private ucDepartamentos As New Departamentos
    Private ucConfiguracion As New Configuracion


    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Bienvenida
        ucBienvenida.Visible = True
        tpPrincipal.Controls.Add(ucBienvenida)

        'Usuarios
        ucUsuarios.Visible = True
        tpUsuarios.Controls.Add(ucUsuarios)

        'Departamentos
        ucDepartamentos.Visible = True
        tpDepartamentos.Controls.Add(ucDepartamentos)

        'Configuración
        ucConfiguracion.Visible = True
        tpConfiguracion.Controls.Add(ucConfiguracion)
    End Sub

    ''' <summary>
    ''' Boton de ayuda, la muestra
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creado por: David Murillo Creado: 12/06/2010
    ''' Modificado: 28/06/2010</remarks>
    Private Sub AyudaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AyudaToolStripMenuItem1.Click
        Dim ayuda As New MostrarAyuda
        ayuda.ShowDialog()

    End Sub
End Class
